home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / one-screen winne (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 10 poke53281,0:poke53280,0:print"[147]"
  2. 20 print"  [159][204][207][193][196][211][212][193][210] presents [154][207][206][197]-[211][195][210][197][197][206][160][215][201][206][206][197][210][211]"
  3. 40 printtab(7)"[153](c) 1988 by [214]arious [193]uthors[152]"
  4. 50 b$(1)="    [194][193][195][203][160][212][207][160][204][207][193][196][211][212][193][210]     "
  5. 55 b$(2)=" [211] [201] [216] [208] [193] [195] [203]   [208] [204] [213] [211] "
  6. 60 b$(3)="   [194] [210] [197] [193] [203] - [198] [193] [211] [212]   "
  7. 70 b$(4)="       [210] [197] [193] [195] [200] !       "
  8. 75 b$(5)="  [196] [193] [212] [193] [205] [193] [203] [197] [210]   [196]  "
  9. 78 b$(6)="  [196] [193] [212] [193] [205] [193] [203] [197] [210]   [193]  "
  10. 80 b$(7)="   [211] [197] [193]   [194] [193] [212] [212] [204] [197]   "
  11. 85 b$(8)="   [212] [201] [205] [197]   [212] [210] [201] [193] [204]   "
  12. 90 b$(9)="     6 4   [212] [201] [205] [197] [210]     "
  13. 100 fori=1to9
  14. 110 printtab(8)""b$(i)
  15. 120 next:poke198,0
  16. 200 k=1
  17. 210 poke214,k*2+3:print
  18. 220 printtab(8)""b$(k)
  19. 230 poke214,23:print:printtab(8)"[158][213]se cursor keys and [210][197][212][213][210][206][152][145][145]"
  20. 240 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then240
  21. 250 ifa$=chr$(13)then300
  22. 260 poke214,k*2+3:print:printtab(8)b$(k)
  23. 270 ifa$=""thenk=k+1:ifk>9thenk=1
  24. 280 ifa$="[145]"thenk=k-1:ifk<1thenk=9
  25. 290 print"":goto210
  26. 300 poke214,k*2+3:print:ifk<>6thenprint"[204]oading[144]"
  27. 302 open15,8,15,"i0":close15
  28. 305 poke214,16:print"[144]"
  29. 310 onkgoto385,320,330,340,350,355,360,370,380
  30. 320 print"load"chr$(34)"sixpack*"chr$(34)",8":goto390
  31. 330 print"load"chr$(34)"break-f*"chr$(34)",8":goto390
  32. 340 print"load"chr$(34)"reach!"chr$(34)",8":goto390
  33. 350 print"load"chr$(34)"datamaker dec"chr$(34)",8":goto390
  34. 355 print"load"chr$(34)"datamaker asc"chr$(34)",8":goto390
  35. 360 print"[144]load"chr$(34)"sea bat*"chr$(34)",8":goto390
  36. 370 print"load"chr$(34)"time tr*"chr$(34)",8":goto390
  37. 380 print"load"chr$(34)"64 timer"chr$(34)",8":goto390
  38. 385 print"load"chr$(34)"hello connect"chr$(34)",8"
  39. 390 print"run:"
  40. 400 poke631,13:poke632,13:poke198,2
  41. 410 end
  42.